home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 184
/
184.d81
/
b.fight songs 3
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
4KB
|
131 lines
10 poke56,56:clr:poke53371,0
20 poke53281,0:poke53280,0
30 dv=peek(186):ifdv<8thendv=8
40 sys57812"ps6",dv,0:poke780,0:poke781,0:poke782,70:sys65493
50 sys57812"fight font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
60 sys57812"wndipcm",dv,0:poke780,0:poke781,0:poke782,148:sys65493
62 sys39168,148*256,128*256,8*256
70 sys57812"sid.obj.64",dv,0:poke780,0:poke781,0:poke782,192:sys65493
80 up=148*256:dn=up+3:cl=up+15
90 dimw$(60)
107 :
108 :rem sprites
109 :
110 v=53248:fori=960to1022:pokei,255:next
120 fori=2040to2043:pokei,15:next
130 fori=0to3:pokev+39+i,15:next
140 pokev+16,0:pokev+29,15:pokev+23,15:pokev+28,0:pokev+27,15
150 pokev,134:pokev+1,60:pokev+2,178:pokev+3,60
160 pokev+4,134:pokev+5,84:pokev+6,178:pokev+7,84
167 :
168 :rem more setup
169 :
170 ad=144*256
180 ip=38656
220 fori=0to7:readf$(i),g$(i):next
230 data"texas a & m","[212][197][216][193][211] [193] & [205]
240 [131]"nebraska","(NULL)valpeek(NULL)atn(NULL)(NULL)atn
250 data"nebraska 2","[206][197][194][210][193][211][203][193] 2
260 [131]"texas","(NULL)val(NULL)atn(NULL)
270 data"kansas","[203][193][206][211][193][211]
280 [131]"iowa state","right$(NULL)(NULL)atn (NULL)(NULL)atn(NULL)val
290 data"texas tech","[212][197][216][193][211] [212][197][195][200]
300 [131]"oklahoma","(NULL)(NULL)(NULL)atnleft$(NULL)(NULL)atn
310 poke53272,31
317 :
318 :rem screen
319 :
320 print"[147] [153][196]ave [205]arquis' [213] [206] [201] [214] [197] [210] [211] [201] [212] [217]"
330 print" [156][176][192][192][192][192][192][192][192][192][192][192][192][174]"
340 print"[176][192][174] [156][221][144]3456789:;<=[146][156][221] [176][192][174]";
350 print"[171][179] [178] [156][221][144]>?[192][193][194][195][196][197][198][199][200][146][156][221] [176][192][174][173][192][174]";
360 print"[177] [221][176][192][174] [156][221][144][201][202][203][204][205][206][207][208][209][210][211][146][156][221] [176][174][176][221][176][174][173][192][189]";
370 print" [177][221][176][174][174] [176] [156][221][144][212][213][214][215][216][217][218][219][220][221][255][146][156][221] [176][174][221][221][221][173][192][189]
380 [153]" /tanexp-tan<or=^clr(NULL)stop(NULL)closegetnewtab(tofnspc(thennotstepwaitclr(NULL)ortan^(NULL)(NULL)exp/exp
390 print" [189] [173] [221] [156][221][144][170][171][172][173][174][175][176][177][178][179][180][146][156][221][173][192][174][173][189]
400 [153]" > clr(NULL)stopintabsusrfrepossqrrndlogexpcossinwaitclr(NULL)/tanexp
410 print" [156][171][192][192][192][192][192][192][192][192][192][192][192][179]"
420 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
430 print"[221] [221]";
440 print"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]";
450 fori=0to9:print"[221] [221]";:next
460 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]";
470 print" [195][210][211][210] [213][208][154]/[196][207][215][206] [210][197][212][213][210][206] [209][154] - [209][213][201][212]"
480 fori=217to242:pokei,peek(i)or128:next
500 poke214,10:print
510 printtab(7)"[158][212] [200] [197] [194] [201] [199] [212] [215] [197] [204] [214] [197][152]"
520 poke214,13:print
530 fori=0to7
540 printtab(15)g$(i)
550 next
560 j=0
570 poke198,0:ti$="000000"
580 poke214,13+j:print:printtab(15)""g$(j)
587 :
588 :rem menu
589 :
590 ifti$<"000002"then620
600 k=k+1:ifk>6thenk=0
610 sys39168,70*256+3*k*256,15768,77*8:ti$="000000":pokev+21,15
620 geta$:ifa$=""then590
630 ifa$="q"thensys49935:pokev+21,0:print"[147]":goto40000
640 ifa$=chr$(13)then690
650 poke214,13+j:print:printtab(15)"[152]"g$(j)
660 ifa$=""thenj=j+1:ifj>7thenj=0
670 ifa$="[145]"thenj=j-1:ifj<0thenj=7
680 goto580
687 :
688 :rem load music & text
689 :
690 pokev+21,0:tq=ti
692 sys39168,128*256,148*256,8*256
694 ft$=f$(j)+".txt":sysip,ft$,dv
700 nl=peek(252)*256+peek(251)
710 poke214,23:print:print" [195][210][211][210] [213][208][154]/[196][207][215][206] [211][208][193][195][197] [154]- [206]ext [205] [154]- [205]enu"
720 sys57812f$(j)+".mus",dv,0:poke780,0:poke781,0:poke782,64:sys65493
740 sys49615:poke49152,0
750 poke781,0:poke782,64:sys49664:poke49152,7
760 syscl,1,13,38,10,0
770 syscl,1,11,38,1,0
780 poke214,10:print"[158]":printtab(20-len(w$(1))/2)w$(1)
790 poke214,12:print
800 fori=3to12:print"[155]"w$(i):next
807 :
808 :rem second loop
809 :
810 poke198,0:h=12
820 ifti$<"000002"then850
822 ifpeek(49152)=7then830
824 sys49897:sys49935
826 j=j+1:ifj>7then320
828 goto690
830 k=k+1:ifk>6thenk=0
840 sys39168,70*256+k*3*256,15768,77*8 :ti$="000000":pokev+21,15
850 geta$:ifa$=""then820
852 ifa$<>" "then860
854 poke49152,0:sys49897:sys49935
856 j=j+1:ifj>7then320
858 goto690
860 ifa$="m"thenpoke49152,0:sys49897:sys49935:goto320
870 ifa$<>""then920
880 h=h+1:ifh>=nlthenh=h-1:goto850
890 sysup,1,13,38,10,0
900 poke214,21:print:print""w$(h)
910 goto850
920 ifa$<>"[145]"then850
930 h=h-1:ifh<12thenh=h+1:goto850
940 sysdn,1,13,38,10,0
950 poke214,12:print:print""w$(h-9)
960 goto850
10000 d=peek(186):n$="0:b.fight songs 3":open15,d,15,"s"+n$:close15:saven$,d:end
40000 fori=8to29:poke820+i,i:next:ifdv>8anddv<30thenpoke828,dv:poke820+dv,8
40010 a$="presenter":gosub40030:a$="hello connect":gosub40030
40020 print"[147]":poke53272,23:poke186,8:poke2048,0:poke44,8:poke43,1:end
40030 forj=8to29:i=peek(820+j):ifi=14thennext
40040 close2:open2,i,2:close2:ifstthen40060
40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
40060 next:return
40070 a$="hello connect":q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
40090 print"run:":poke631,13:poke632,13:poke198,2:end